
0 V=53248
1 POKEV+21,0
2 REM *********************************
3 REM ******** SPREAD BY TDS 1988 *****
4 REM *********************************
5 POKE53281,0:POKE53280,0:POKE808,225
6 PRINT"20000 MEILEN UNTER DEM MEER
7 PRINT"SPREAD BY THE DRUIDS OF STONEHENGE
8 REM *********************************
10 DATA162,6,142,32,208,142,33,238,232,224,0,208,245,96,0,16
20 FORT=1TO16:READQ:POKE827+T,Q:NEXT
30 POKE53280,0:POKE53281,0
40 PRINT"ANLEITUNG? (J/N)"
50 GETA$:IFA$<>"J"ANDA$<>"N"THEN50
60 IFA$="J"THEN1000
70 PRINT"EINFUEHRUNG? (J/N)"
80 GETA$:IFA$<>"J"ANDA$<>"N"THEN80
90 IFA$="J"THEN500
100 POKE53280,0:POKE53281,0
101 PRINT"LOAD"CHR$(34)"-4"CHR$(34)",8"
102 PRINT"RUN"
103 PRINT"":POKE631,13:POKE632,13:POKE198,4
105 END
500 POKE53280,0:POKE53281,0
501 PRINT"LOAD"CHR$(34)"-3"CHR$(34)",8"
502 PRINT"RUN"
503 PRINT"":POKE631,13:POKE632,13:POKE198,4
505 END
1000 POKE53280,0:POKE53281,0
1001 PRINT"LOAD"CHR$(34)"-2"CHR$(34)",8"
1002 PRINT"RUN"
1003 PRINT"":POKE631,13:POKE632,13:POKE198,4
1005 END
READY.
